10 REM HIDE/UNCOVER DIRECTORY MIDDLE
15 PRINT"HIDE OR UNCOVER DIR MIDDLE (H/U)?":WAIT198,7:GETX$:IFX$<>"H"THEN55
18 REM HIDE DIRECTORY MIDDLE
20 CLOSE15:OPEN15,8,15:PRINT#15,"I0:":CLOSE5:OPEN5,8,5,"#":T=18:S=1
25 PRINT#15,"U1:"5;0;T;S:PRINT#15,"B-P:5,0":GET#5,T$:GET#5,S$
30 T2=T:S2=S:T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0)):IFT<>0THEN25
35 IFT2=18AND(S2=1ORS2=4)THENPRINT" NO MIDDLE TO HIDE! [146]":GOTO50
40 PRINT#15,"U1:"5;0;18;1:PRINT#15,"B-P:5,0":PRINT#5,CHR$(T2)CHR$(S2);
45 PRINT#15,"U2:"5;0;18;1
50 INPUT#15,ER,ER$:PRINT:PRINT"DISK STATUS"ER;ER$:PRINT#15,"I0:":CLOSE15:END
55 REM UNHIDE DIRECTORIES
60 CLOSE15:OPEN15,8,15:PRINT#15,"I0:":CLOSE5:OPEN5,8,5,"#":T=18:S=1
65 PRINT#15,"U1:"5;0;18;1:PRINT#15,"B-P:5,0":PRINT#5,CHR$(18)CHR$(4);
70 PRINT#15,"U2:"5;0;18;1:GOTO50